home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 4 / MacMania 4.toast / / Games&Education / NotAdventure II / reggie.bas < prev   
BASIC Source File  |  1996-01-08  |  10KB  |  242 lines
  1.         PRINT "Reggie copyright (c) 1991, 1992, 1994 David A. Zatz. Version 1.0"
  2.        PRINT "Please distribute but do not alter this program."
  3.        PRINT "."
  4.        PRINT "Please answer Y/N questions in capital letters! Press Enter."
  5.     INPUT a$
  6.     PRINT " . "
  7.     PRINT "Welcome to the wonderful world of college registration!"
  8.     PRINT "What is your first name?"
  9.     INPUT first$
  10.     PRINT "What is your last name?"
  11.     INPUT last$
  12.     LET g = 0
  13.     PRINT "Welcome to BigPrestigious College, "; last$; ", "; first$; "!"
  14.     PRINT "What is your major, "; last$; "?"
  15. 3 INPUT major$
  16. 5 PRINT "What courses will you be taking?"
  17.     PRINT "1. Whatever fits into a nice schedule, I suppose."
  18.     PRINT "2. Courses I need for my major, of course!"
  19.     IF g = 0 THEN PRINT "3. None, I just want to look at the pretty [men/women]!"
  20.     IF g = 0 THEN PRINT "4. Sorry, I thought this was the unemployment line!"
  21.     INPUT a
  22.     IF a = 1 THEN 10
  23.     IF a = 2 THEN 20
  24.     IF a = 3 THEN 30
  25.     IF a = 4 THEN 40
  26.     PRINT "Come on, come on, give me a number between 1 and 4!"
  27.     GOTO 5
  28. 40 PRINT "You have to wait until you graduate before you get unemployment!"
  29.     LET g = 1
  30.     GOTO 20
  31. 30 PRINT "Well, you can do that...but you gotta take courses, or the cops'll"
  32.     LET g = 1
  33.     PRINT "come and boot you off the campus so fast your heels will melt!"
  34.     GOTO 20
  35. 10 PRINT "Sounds good...here's your courseload for next semester:"
  36.     GOTO 25
  37. 20 PRINT "Let's see...your major was "; major$; "...what's still open?"
  38.     PRINT "No...no...no...hmm...nope...no...let's try that....nope..."
  39.     PRINT "Sorry, we have no "; major$; " courses open!"
  40.     PRINT "Guess we'll have to give you these:"
  41. 25 PRINT "1. Medieval Basketweaving, Monday-Wednesday 10:40 - 12"
  42.     PRINT "2. History of the Saraha Rainforest, Tuesday-Thursday 8:30 - 10"
  43.     PRINT "3. Advanced Calculus for Real Masochists, Mon-Tues-Wed 1-4"
  44.     PRINT "4. Chemistry for People Who Like Low Grades, Wed-Thurs 4:10-8:30"
  45.     PRINT "5. Scizophrenia and Delusion in Childrens Books, Friday 12-12:30"
  46.     PRINT "`Course, if you don't like those courses, all you have to do is wait"
  47.     PRINT "for add-drop period!"
  48.     PRINT " - "
  49.     PRINT "Press Enter to continue."
  50.  
  51.     INPUT a$
  52.     PRINT " - "
  53.     PRINT "Just a reminder to send $5 to"
  54.     PRINT " David Zatz, 195 Riveredge, Tenafly, NJ 07670-1928"; ""
  55.     PRINT " Please type 318 below to show that you've read this message."
  56.     INPUT keycode$
  57.     IF keycode$ = "318" THEN GOTO 120
  58.     GOTO 121
  59. 120 PRINT "-"
  60.     PRINT "(Now back to the game)"
  61.     PRINT " - "
  62. 34 PRINT "Do you have your money with you?"
  63.     PRINT "  1. Yes"
  64.     PRINT "  2. How much was it again?"
  65.     PRINT "  3. You must be joking!"
  66.     INPUT b
  67.     IF b = 3 THEN PRINT "Us? Joke? Never! "
  68.     IF b = 1 THEN PRINT "Let me remind you of how much you owe us..."
  69.     IF b < 4 THEN GOTO 50
  70.     PRINT "How did you get into college if you don't know how to type 1, 2, or 3?"
  71.     GOTO 34
  72. 50 PRINT "Now, that's five courses, three credits each...credits at $440 each...; "; ""
  73.     PRINT "Guess that makes $6600 this semester...plus room and board..."
  74.     PRINT "insurance...medical care...Okay, we've got a total of $12,000!"
  75. 12 PRINT "Want to go to financial aid?"
  76.     PRINT "(say Y or N)"
  77.     INPUT aid$
  78.     IF aid$ = "Y or N" THEN PRINT "Some sense of humor you've got! Let's try again."
  79.     IF aid$ = "Y or N" THEN GOTO 12
  80.     IF aid$ = "N" THEN PRINT "Are you out of your mind? Of course you want to go!"
  81.     PRINT "Financial aid is just on the other end of the campus..."
  82.     PRINT "[twenty minutes elapse]"
  83.     PRINT "Welcome to the financial aid line!"
  84.     PRINT " a minute ... five minutes ... twenty minutes ... an hour..."
  85.     PRINT " ... two hours ... hey, you're next on line!"
  86.     PRINT " ."
  87.     PRINT "Sure taking a while, isn't it?"
  88.     PRINT " . "
  89.     PRINT ">>'Well, "; firstname$; ", I see you're taking 15 credits!'"
  90.     PRINT ">>'You're sure gonna need a lot of aid!'"
  91.     PRINT ">>'Here, fill out these forms and get back on line!'"
  92.     PRINT " - "
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105. 45 PRINT "Do you want to go through with this?"
  106.     PRINT "    1. No! Get me out of this school!"
  107.     PRINT "    2. No! Get me out of this program!"
  108.     PRINT "    3. Yes, it's raining anyway."
  109.     INPUT c
  110.     IF c = 3 THEN GOTO 52
  111.     IF c > 3 OR c < 1 THEN PRINT "Try again, dude! (How DID you get into this school?"
  112.     IF c > 3 OR c < 1 THEN GOTO 45
  113.     PRINT ">>Sorry, you've already signed up for the courses..."
  114.     PRINT ">>That means you owe us the twelve grand already!"
  115.     PRINT "Knowing that, do you want to apply for aid?  Y/N"
  116. 51 INPUT a$
  117.     IF a$ = "Y" THEN PRINT "Smart decision!"
  118.     IF a$ = "Y" THEN GOTO 55
  119.     IF a$ = "N" THEN PRINT "Because you don't have any money saved up, it's financial"
  120.     IF a$ = "N" THEN PRINT "or jail! This year, then, you take financial aid."
  121.     IF a$ = "N" THEN GOTO 55
  122.     PRINT "Come on, come on, make up your mind! There are only two choices! Y / N!; "; ""
  123.     GOTO 51
  124. 52 PRINT ">>Good attitude!"
  125. 55 PRINT "We will skip over the next three hours..."
  126.     PRINT ">>Financial Aid Person: Sorry, you made a typo on page 3! Try again!; "; ""
  127.     PRINT " - (you try again...two hours pass...) - "
  128.     PRINT ">>Financial Aid Person: Sorry, while you were goofing off, we gave"
  129.     PRINT ">>                                     away all our aid!"
  130.     PRINT "Should you leave or demand more money?  (1=leave    2=demand)"
  131. 125  INPUT a
  132.     IF a < 1 OR a > 2 THEN PRINT "Pick a number, any number ! (as long as it's 1 or 2)"
  133.     IF a < 1 OR a > 2 THEN GOTO 125
  134.     IF a = 1 THEN PRINT "As you turn away, the financial aid person calls you back!"
  135.     IF a = 2 THEN PRINT "The financial aid person turns away in a huff."
  136.     IF a = 2 THEN PRINT "But then (s)he turns around, and says:"
  137.     PRINT ">>Wait a sec...we can give you an $8500 GSL!”"
  138.     PRINT ">>You pay 8% interest, starting when you graduate, and a $450 fee!"
  139.     PRINT "Should you take it?  Y/N";
  140. 123 INPUT a$
  141.     IF a$ = "Y" THEN GOTO 318
  142.     IF a$ <> "Y" AND a$ <> "N" THEN PRINT "You'll get an F average if you don't say Y or N!"
  143.     IF a$ = "N" THEN PRINT "You must be kidding! Say Yes! (Y)"
  144.     GOTO 123
  145. 318 PRINT "Good decision!"
  146.     PRINT "You have been awarded $7,500 in financial aid for this year."
  147.     PRINT " (the bank will skim $450 off the top, so you get $7,050)."
  148.     PRINT "You can also get a work-study job which pays at least minimum wage!; "; ""
  149.     PRINT "  "
  150.     PRINT "Time passes"
  151.     PRINT " - "
  152.     LET counter = 0
  153.     PRINT "It's add-drop time! Your courses are:"
  154.     LET one$ = "1. Medieval Basketweaving"
  155.     LET two$ = "2. History of the Saraha Rainforest"
  156.     LET three$ = "3. Advanced Calculus for Real Masochists"
  157.     LET four$ = "4. Chemistry for People Who Like Low Grades"
  158.     LET five$ = "5. Scizophrenia and Delusion in Childrens Books"
  159. 180 PRINT one$
  160.     PRINT two$
  161.     PRINT three$
  162.     PRINT four$
  163.     PRINT five$
  164.     PRINT "Type the number of the course you want to drop, or 0 to exit."
  165.     INPUT a
  166.     IF a = 0 THEN 200
  167.     IF a < 0 OR a > 5 THEN GOTO ErrorHandler
  168.     PRINT "Just type in the name of the course you want to replace it with."
  169.     PRINT "(Don't forget to avoid schedule conflicts!)"
  170.     INPUT course$
  171.     LET counter = counter + 1
  172.     IF counter > 3 THEN PRINT "Sorry, that course is full! "
  173.     IF counter > 3 THEN PRINT "(It filled in the time you replaced the first three choices!)"
  174.     IF counter > 3 THEN GOTO 200
  175.     IF a = 1 THEN LET one$ = course$
  176.     IF a = 2 THEN LET two$ = course$
  177.     IF a = 3 THEN LET three$ = course$
  178.     IF a = 4 THEN LET four$ = course$
  179.     IF a = 5 THEN LET five$ = course$
  180.        GOTO 180
  181. 200 PRINT "Glad you're done. It's about time! Here are your revised courses:"
  182.     PRINT "1. "; one$
  183.     PRINT "2. "; two$
  184.     PRINT "3. "; three$
  185.     PRINT "4. "; four$
  186.     PRINT "5. "; five$
  187.     PRINT "                  Hit Enter When Ready To Continue"
  188.     INPUT a$
  189.     CLS
  190.     PRINT "Now it's time to get books!"
  191.     PRINT "How much do you expect to pay? (In dollars, but WITHOUT a dollar sign!)"
  192.     INPUT a
  193.     IF a < 50 THEN PRINT "That should get you a book! (One down, ten to go!)"
  194.     IF a > 49 AND a < 120 THEN PRINT "That should be enough for a course or two!"
  195.     IF a > 110 AND a < 200 THEN PRINT "Sounds about right...if you get a couple used."
  196.     IF a > 199 AND a < 300 THEN PRINT "Now you're being realistic!"
  197.     IF a > 299 THEN PRINT "Let me guess. You're in the physical sciences, right?"
  198.     PRINT "-"
  199.     PRINT "The bookstore is out of stock on four books. That should save you some; money.; "; ""
  200. 201 PRINT "What should you do about it?"
  201.     PRINT "    1. Drop the course."
  202.     PRINT "    2. Drop out of school."
  203.     PRINT "    3. Don't bother reading the book."
  204.     PRINT "    4. Look for it somewhere else."
  205.     PRINT "    5. Wait."
  206.     INPUT a
  207.     IF a = 4 THEN PRINT four$; " is unavailable anywhere else."
  208.     IF a < 1 OR a > 5 THEN PRINT "Seems to me you need an extra book on typing numbers!"
  209.     IF a = 1 OR a = 2 THEN PRINT "Then you'll lose your financial aid, default on your debts, and be bankrupt!"
  210.     IF a = 3 THEN PRINT "Now there's the way to get good grades!"
  211.     IF a = 4 OR a = 3 OR a = 5 THEN GOTO 202
  212.     GOTO 201
  213. 202 PRINT "I've got to get back to studying now...I will write more later."
  214.     PRINT "(Especially if people register!)"
  215.     PRINT "If you have any ideas, let me know."
  216.     PRINT "Otherwise, I'll probably include fraternity rush, meal halls,"
  217.     PRINT "exams, grad school, and finding a job -- all of this"
  218.     PRINT "eventually, and if the program is supported and distributed."
  219.     PRINT "Please do your part! Upload it everywhere! Thanks."
  220.     PRINT "(Enter to quit)."
  221.     INPUT a$
  222.     GOTO 122
  223. ErrorHandler: PRINT "I guess remedial arithmetic has to be on the list!"
  224.     LET one$ = "1. Remedial Mathmatics For Football Players"
  225.     LET two$ = "2. Remedial Arithmetic For Basketball Players"
  226.     LET three$ = "3. Remedial Number Entry for Hockey Players"
  227.     LET four$ = "4. Remedial Text Game Playing for Chief Executive Officers"
  228.     LET five$ = "5. Remedial BASIC For Text Game Authors"
  229.     GOTO 200
  230. 121 PRINT "How can you go to college if you can't even type 318?"
  231.     INPUT a$
  232. 122 END
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.